/* poporct.i - VENDOR RECEIPTS ACCOUNT INCLUDE FILE                         */
/* Copyright 1986 QAD Inc. All rights reserved.                               */
/* $Id:: poporct.i 64242 2015-12-28 03:26:34Z kbh                          $: */
/* $Revision: 1.1 $ BY: Ed van de Gevel DATE: 02/23/05 ECO: *R00B* */
/*-Revision end-------------------------------------------------------------*/
 
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/
 
define variable rcptx_acct like pl_rcpt_acct no-undo.
define variable rcptx_sub  like pl_rcpt_sub  no-undo.
define variable rcptx_cc   like pl_rcpt_cc   no-undo.
 
for first acdf_mstr
   where acdf_domain = global_domain
   and   acdf_module = "VD"
   and   acdf_type   = "VD_RCPT_ACCT"
   and   acdf_key1   = {&vendor}
no-lock:
   if acdf_acct <> ""
   then assign
      dftrcptacct       = acdf_acct
      dftrcptsubacct    = acdf_sub
      dftrcptcostcenter = acdf_cc.
end.
 
for first acdf_mstr
   where acdf_domain = global_domain
   and   acdf_module = "VD"
   and   acdf_type   = "VD_RCPTX_ACCT"
   and   acdf_key1   = {&vendor}
no-lock:
   assign
      rcptx_acct  = acdf_acct
      rcptx_sub   = acdf_sub
      rcptx_cc    = acdf_cc.
end.
 
if rcptx_acct = "" and rcptx_sub = "" and rcptx_cc = ""
then assign
   rcptx_acct  = gl_rcptx_acct
   rcptx_sub   = gl_rcptx_sub
   rcptx_cc    = gl_rcptx_cc.
